;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Producemain]
{
#IF
check [588] 1
#SAY
ϲ귩½,ѧ漼!\
ѧϰԼܡ\\
<ѧϰ/@learnproduce>\
</@forgetproduce>\
#ELSESAY
δ벿,ѧϰ?!\
<˳/@Exit>

[@learnproduce]
#IF
!EQUAL USERPROJOB 0
#ACT
break
#SAY
ԲѾѧϰ.Ҫѧļܣ\\

#ELSESAY
ѡҪѧϰļܣ\\
</@learnweapon(4)> <ɽ/@learnweapon(1)> <÷/@learnweapon(2)> <ҩʦ/@learnweapon(3)>\\


[@learnweapon()]
#IF
#ACT
mov D2 %ARG(1)
Actcmd SETPROJOB %D2
ACTCMD SETPROEXP 0
ACTCMD SETPROLVL 1

#IF
EQUAL D2 1
#ACT
mov A2 "ɽ"

#IF
EQUAL D2 2
#ACT
mov A2 "÷"

#IF
EQUAL D2 3
#ACT
mov A2 "ҩʦ"

#IF
EQUAL D2 4
#ACT
mov A2 ""


#IF
#SAY
ɹѧϰ<$OUTPUT(A2)>ܡ\\
<ر/@exit>

[@forgetproduce]
#IF
EQUAL USERPROJOB 0
#ACT
mov D2 %P9


#IF
EQUAL D2 1
#ACT
mov A2 "ɽ"

#IF
EQUAL D2 2
#ACT
mov A2 "÷"

#IF
EQUAL D2 3
#ACT
mov A2 "ҩʦ"

#IF
EQUAL D2 4
#ACT
mov A2 ""

#IF
#SAY
ȷҪ'<$OUTPUT(A2)>'֮޷ָٴѧļһн㿪ʼ\\
ȷ <ֿ/@@*10_sureforgetproduce>\
<ҿЦ/@exit>

[@@*10_sureforgetproduce]
#ACT
mov A1 %INPUTSTR
mov A2 %PASSWD(9)

#IF
EQUAL USERPROJOB 0
#ACT
mov D2 %P9

#IF
EQUAL D2 1
#ACT
mov A3 "ɽ"

#IF
EQUAL D2 2
#ACT
mov A3 "÷"

#IF
EQUAL D2 3
#ACT
mov A3 "ҩʦ"

#IF
EQUAL D2 4
#ACT
mov A3 ""


#IF
EQUAL A1 %A2
#ACT
Actcmd SETPROJOB 0
ACTCMD SETPROEXP 0
ACTCMD SETPROLVL 1

#SAY
Ѿɹ'<$OUTPUT(A3)>'ܣҪѧϰļ.\
<ر/@exit>

#ELSESAY
Բ,.

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;